SuperHack/SuperHack CD.bin/CODING/VBASIC/AGAVB25.ZIP/VB.ZIP/GCAPTION.FRM

Visual Basic Form | 1996-01-17 | 15.0 KB | 471 lines

VERSION 2.00
Begin Form CaptionDemo
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Captions"
   ClientHeight    =   3555
   ClientLeft      =   1560
   ClientTop       =   1470
   ClientWidth     =   7635
   Height          =   3960
   Left            =   1500
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3555
   ScaleWidth      =   7635
   Top             =   1125
   Width           =   7755
   Begin Frame Frame4
      BackColor       =   &H00C0C0C0&
      Caption         =   "Caption Positions"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "System"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   975
      Left            =   3630
      TabIndex        =   26
      Top             =   1875
      Width           =   3840
      Begin HScrollBar HScroll1
         Height          =   240
         Index           =   0
         Left            =   1125
         Max             =   140
         Min             =   -140
         TabIndex        =   28
         Top             =   330
         Width           =   2000
      End
      Begin HScrollBar HScroll1
         Height          =   240
         Index           =   1
         Left            =   1125
         Max             =   140
         Min             =   -140
         TabIndex        =   27
         Top             =   570
         Width           =   2000
      End
      Begin Label Label2
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "0"
         Height          =   195
         Index           =   0
         Left            =   3225
         TabIndex        =   5
         Top             =   360
         Width           =   120
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "CaptionX:"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   210
         Index           =   0
         Left            =   390
         TabIndex        =   9
         Top             =   345
         Width           =   690
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "CaptionY:"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   210
         Index           =   1
         Left            =   375
         TabIndex        =   11
         Top             =   600
         Width           =   705
      End
      Begin Label Label2
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "0"
         Height          =   195
         Index           =   1
         Left            =   3225
         TabIndex        =   16
         Top             =   600
         Width           =   120
      End
   End
   Begin Frame Frame2
      BackColor       =   &H00C0C0C0&
      Caption         =   "Caption Font ID"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "System"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1095
      Left            =   4905
      TabIndex        =   22
      Top             =   45
      Width           =   2550
      Begin OptionButton Option2
         BackColor       =   &H00C0C0C0&
         Caption         =   "MS Sans Serif (FontID=2)"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   240
         Index           =   2
         Left            =   90
         TabIndex        =   23
         Top             =   765
         Width           =   2235
      End
      Begin OptionButton Option2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Courier(FontID=1)"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Courier New"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   225
         Index           =   1
         Left            =   90
         TabIndex        =   24
         Top             =   555
         Width           =   2235
      End
      Begin OptionButton Option2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Arial (FontID=0)"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   240
         Index           =   0
         Left            =   90
         TabIndex        =   25
         Top             =   345
         Width           =   1770
      End
   End
   Begin AGAUGE Gauge1
      Angle           =   0
      AutoRedraw      =   -1  'True
      AVersion        =   2.5
      BackgroundColor =   &H00E0E0E0&
      BevelInner      =   0  ' 0 - None
      BevelOuter      =   1  ' 1 - Raised
      BevelWidth      =   2
      BorderType      =   1  ' 1 - Bevel
      BorderWidth     =   0
      FontID          =   2
      FrameColor      =   &H00000000&
      FrameScaleX     =   0
      FrameScaleY     =   0
      FrameStyle      =   0  ' 0 - None
      Height          =   3315
      Left            =   135
      MouseControl    =   -1  'True
      OutlineAlign    =   0  ' 0 - Left
      OutlineColor    =   &H00000000&
      OutlineTitle    =   ""
      OutlineWidth    =   0
      Radius          =   0
      Shape           =   ""
      TabIndex        =   21
      Top             =   105
      Value           =   0
      Width           =   3405
      XScale          =   0
      YScale          =   0
      ZLoad           =   GCAPTION.FRX:0000
   End
   Begin Frame Frame3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Caption Color"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "System"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   630
      Left            =   3630
      TabIndex        =   4
      Top             =   1170
      Width           =   3840
      Begin Label Colors
         BackColor       =   &H00000000&
         Height          =   225
         Index           =   0
         Left            =   660
         TabIndex        =   6
         Top             =   300
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H000000FF&
         Height          =   225
         Index           =   1
         Left            =   1545
         TabIndex        =   7
         Top             =   300
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H00C00000&
         Height          =   225
         Index           =   2
         Left            =   945
         TabIndex        =   13
         Top             =   300
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H00404040&
         Height          =   225
         Index           =   3
         Left            =   1830
         TabIndex        =   14
         Top             =   300
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H0000FF00&
         Height          =   225
         Index           =   4
         Left            =   1245
         TabIndex        =   15
         Top             =   300
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H0000FFFF&
         Height          =   225
         Index           =   5
         Left            =   2130
         TabIndex        =   17
         Top             =   300
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H00FFFF00&
         Height          =   225
         Index           =   6
         Left            =   2430
         TabIndex        =   18
         Top             =   300
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H00800080&
         Height          =   225
         Index           =   7
         Left            =   2715
         TabIndex        =   19
         Top             =   300
         Width           =   225
      End
      Begin Label Colors
         BackColor       =   &H000080FF&
         Height          =   225
         Index           =   8
         Left            =   3015
         TabIndex        =   20
         Top             =   300
         Width           =   225
      End
   End
   Begin TextBox Text1
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "System"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   360
      Left            =   3630
      TabIndex        =   10
      Text            =   " "
      Top             =   3105
      Width           =   3840
   End
   Begin Frame Frame1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Caption ID"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "System"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1095
      Left            =   3645
      TabIndex        =   0
      Top             =   30
      Width           =   1125
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "2"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "System"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   255
         Index           =   2
         Left            =   360
         TabIndex        =   3
         Top             =   780
         Width           =   615
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "1"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "System"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   255
         Index           =   1
         Left            =   360
         TabIndex        =   2
         Top             =   540
         Width           =   615
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "0"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "System"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   255
         Index           =   0
         Left            =   360
         TabIndex        =   1
         Top             =   300
         Value           =   -1  'True
         Width           =   615
      End
   End
   Begin Label Label1
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Caption "
      Height          =   240
      Index           =   2
      Left            =   3630
      TabIndex        =   8
      Top             =   2880
      Width           =   720
   End
   Begin Label Label2
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   " "
      Height          =   195
      Index           =   2
      Left            =   5460
      TabIndex        =   12
      Top             =   3030
      Width           =   90
   End
Dim colorid(9) As Integer
Sub Colors_Click (index As Integer)
    Gauge1.CaptionColor = colors(index).BackColor
    text1.ForeColor = Gauge1.CaptionColor
    colorid(Gauge1.CaptionID) = index
    For i = 0 To 8
        If i = index Then
            colors(i).BorderStyle = 1
        Else
            colors(i).BorderStyle = 0
        End If
    Next i
End Sub
Sub Form_Load ()
    hscroll1(0) = Gauge1.CaptionX * 100
    hscroll1(1) = Gauge1.CaptionY * 100
    text1 = Gauge1.Caption
    Option2(Gauge1.CaptionFontID) = True
    For i = 0 To 2
        Gauge1.CaptionID = i
        Gauge1.CaptionColor = colors(i).BackColor
        colorid(i) = i
    Next i
    Gauge1.CaptionID = 0
End Sub
Sub HScroll1_Change (index As Integer)
    Select Case index
        Case 0
            Gauge1.CaptionX = hscroll1(0) / 100
            label2(0) = hscroll1(0) / 100
        Case 1
            Gauge1.CaptionY = hscroll1(1) / 100
            label2(1) = hscroll1(1) / 100
    End Select
End Sub
Sub HScroll1_Scroll (index As Integer)
    Select Case index
        Case 0
            Gauge1.CaptionX = hscroll1(0) / 100
            label2(0) = hscroll1(0) / 100
        Case 1
            Gauge1.CaptionY = hscroll1(1) / 100
            label2(1) = hscroll1(1) / 100
    End Select
End Sub
Sub Option1_Click (index As Integer)
    Gauge1.CaptionID = index
    hscroll1(0) = Gauge1.CaptionX * 100
    hscroll1(1) = Gauge1.CaptionY * 100
    text1 = Gauge1.Caption
    text1.ForeColor = Gauge1.CaptionColor
    Option2(Gauge1.CaptionFontID) = True
    For i = 0 To 8
        If i = colorid(index) Then
            colors(i).BorderStyle = 1
        Else
            colors(i).BorderStyle = 0
        End If
    Next i
End Sub
Sub Option2_Click (index As Integer)
    Gauge1.CaptionFontID = index
End Sub
Sub Text1_Change ()
    Gauge1.Caption = text1
End Sub